home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / lfun_list.lsp < prev    next >
Encoding:
Text File  |  1992-04-29  |  22.8 KB  |  456 lines
  1.  
  2. ;; Modified data base including return values types
  3. ;; and making the arglists correct if they have optional args.
  4. ;;
  5.  
  6. (in-package 'compiler)
  7.  
  8. (DEFSYSFUN 'GENSYM "Lgensym" '(*) 'T NIL NIL) 
  9. (DEFSYSFUN 'SUBSEQ "Lsubseq" '(T T *) 'T NIL NIL) 
  10. (DEFSYSFUN 'MINUSP "Lminusp" '(T) 'T NIL T) 
  11. (DEFSYSFUN 'INTEGER-DECODE-FLOAT "Linteger_decode_float" '(T)
  12.     '(VALUES T T T) NIL NIL) 
  13. (DEFSYSFUN '- "Lminus" '(T *) 'T NIL NIL) 
  14. (DEFSYSFUN 'INT-CHAR "Lint_char" '(T) 'CHARACTER NIL NIL) 
  15. (DEFSYSFUN 'CHAR-INT "Lchar_int" '(T) 'FIXNUM NIL NIL) 
  16. (DEFSYSFUN '/= "Lall_different" '(T *) 'T NIL T) 
  17. (DEFSYSFUN 'COPY-SEQ "Lcopy_seq" '(T) 'T NIL NIL) 
  18. (DEFSYSFUN 'KEYWORDP "Lkeywordp" '(T) 'T NIL T) 
  19. (DEFSYSFUN 'NAME-CHAR "Lname_char" '(T) 'CHARACTER NIL NIL) 
  20. (DEFSYSFUN 'CHAR-NAME "Lchar_name" '(T) 'T NIL NIL) 
  21. (DEFSYSFUN 'RASSOC-IF "Lrassoc_if" '(T T) 'T NIL NIL) 
  22. (DEFSYSFUN 'MAKE-LIST "Lmake_list" '(T *) 'T NIL NIL) 
  23. (DEFSYSFUN 'HOST-NAMESTRING "Lhost_namestring" '(T) 'STRING NIL NIL) 
  24. (DEFSYSFUN 'MAKE-ECHO-STREAM "Lmake_echo_stream" '(T T) 'T NIL NIL) 
  25. (DEFSYSFUN 'NTH "Lnth" '(T T) 'T NIL NIL) 
  26. (DEFSYSFUN 'SIN "Lsin" '(T) 'T NIL NIL) 
  27. (DEFSYSFUN 'NUMERATOR "Lnumerator" '(T) 'T NIL NIL) 
  28. (DEFSYSFUN 'ARRAY-RANK "Larray_rank" '(T) 'FIXNUM NIL NIL) 
  29. (DEFSYSFUN 'CAAR "Lcaar" '(T) 'T NIL NIL) 
  30. ;#-clcs (DEFSYSFUN 'LOAD "Lload" '(T *) 'T NIL NIL) 
  31. ;#-clcs (DEFSYSFUN 'OPEN "Lopen" '(T *) 'T NIL NIL) 
  32. (DEFSYSFUN 'BOTH-CASE-P "Lboth_case_p" '(T) 'T NIL T) 
  33. (DEFSYSFUN 'NULL "Lnull" '(T) 'T NIL T) 
  34. (DEFSYSFUN 'RENAME-FILE "Lrename_file" '(T T) 'T NIL NIL) 
  35. (DEFSYSFUN 'FILE-AUTHOR "Lfile_author" '(T) 'T NIL NIL) 
  36. (DEFSYSFUN 'STRING-CAPITALIZE "Lstring_capitalize" '(T *) 'STRING NIL
  37.     NIL) 
  38. (DEFSYSFUN 'MACROEXPAND "Lmacroexpand" '(T *) '(VALUES T T) NIL NIL) 
  39. (DEFSYSFUN 'NCONC "Lnconc" '(*) 'T NIL NIL) 
  40. (DEFSYSFUN 'BOOLE "Lboole" '(T T T) 'T NIL NIL) 
  41. (DEFSYSFUN 'TAILP "Ltailp" '(T T) 'T NIL T) 
  42. (DEFSYSFUN 'CONSP "Lconsp" '(T) 'T NIL T) 
  43. (DEFSYSFUN 'LISTP "Llistp" '(T) 'T NIL T) 
  44. (DEFSYSFUN 'MAPCAN "Lmapcan" '(T T *) 'T NIL NIL) 
  45. (DEFSYSFUN 'LENGTH "Llength" '(T) 'FIXNUM T NIL) 
  46. (DEFSYSFUN 'RASSOC "Lrassoc" '(T T *) 'T NIL NIL) 
  47. (DEFSYSFUN 'PPRINT "Lpprint" '(T *) 'T NIL NIL) 
  48. (DEFSYSFUN 'PATHNAME-HOST "Lpathname_host" '(T) 'T NIL NIL) 
  49. (DEFSYSFUN 'NSUBST-IF-NOT "Lnsubst_if_not" '(T T T *) 'T NIL NIL) 
  50. (DEFSYSFUN 'FILE-POSITION "Lfile_position" '(T *) 'T NIL NIL) 
  51. (DEFSYSFUN 'STRING< "Lstring_l" '(T T *) 'T NIL T) 
  52. (DEFSYSFUN 'REVERSE "Lreverse" '(T) 'T NIL NIL) 
  53. (DEFSYSFUN 'STREAMP "Lstreamp" '(T) 'T NIL T) 
  54. (DEFSYSFUN 'SYSTEM:PUTPROP "siLputprop" '(T T T) 'T NIL NIL) 
  55. (DEFSYSFUN 'REMPROP "Lremprop" '(T T) 'T NIL NIL) 
  56. (DEFSYSFUN 'SYMBOL-PACKAGE "Lsymbol_package" '(T) 'T NIL NIL) 
  57. (DEFSYSFUN 'NSTRING-UPCASE "Lnstring_upcase" '(T *) 'STRING NIL NIL) 
  58. (DEFSYSFUN 'STRING>= "Lstring_ge" '(T T *) 'T NIL T) 
  59. (DEFSYSFUN 'REALPART "Lrealpart" '(T) 'T NIL NIL) 
  60. (DEFSYSFUN 'USER-HOMEDIR-PATHNAME "Luser_homedir_pathname" '(*) 'T NIL
  61.     NIL) 
  62. (DEFSYSFUN 'NBUTLAST "Lnbutlast" '(T *) 'T NIL NIL) 
  63. (DEFSYSFUN 'ARRAY-DIMENSION "Larray_dimension" '(T T) 'FIXNUM NIL NIL) 
  64. (DEFSYSFUN 'CDR "Lcdr" '(T) 'T NIL NIL) 
  65. (DEFSYSFUN 'EQL "Leql" '(T T) 'T NIL T) 
  66. (DEFSYSFUN 'LOG "Llog" '(T *) 'T NIL NIL) 
  67. (DEFSYSFUN 'DIRECTORY "Ldirectory" '(T) 'T NIL NIL) 
  68. (DEFSYSFUN 'STRING-NOT-EQUAL "Lstring_not_equal" '(T T *) 'T NIL T) 
  69. (DEFSYSFUN 'SHADOWING-IMPORT "Lshadowing_import" '(T *) 'T NIL NIL) 
  70. (DEFSYSFUN 'MAPC "Lmapc" '(T T *) 'T NIL NIL) 
  71. (DEFSYSFUN 'MAPL "Lmapl" '(T T *) 'T NIL NIL) 
  72. (DEFSYSFUN 'MAKUNBOUND "Lmakunbound" '(T) 'T NIL NIL) 
  73. (DEFSYSFUN 'CONS "Lcons" '(T T) 'T NIL NIL) 
  74. (DEFSYSFUN 'LIST "Llist" '(*) 'T NIL NIL) 
  75. (DEFSYSFUN 'USE-PACKAGE "Luse_package" '(T *) 'T NIL NIL) 
  76. (DEFSYSFUN 'FILE-LENGTH "Lfile_length" '(T) 'T NIL NIL) 
  77. (DEFSYSFUN 'MAKE-SYMBOL "Lmake_symbol" '(T) 'T NIL NIL) 
  78. (DEFSYSFUN 'STRING-RIGHT-TRIM "Lstring_right_trim" '(T T) 'STRING NIL
  79.     NIL) 
  80. (DEFSYSFUN 'ENOUGH-NAMESTRING "Lenough_namestring" '(T *) 'STRING NIL
  81.     NIL) 
  82. (DEFSYSFUN 'PRINT "Lprint" '(T *) 'T NIL NIL) 
  83. (DEFSYSFUN 'CDDAAR "Lcddaar" '(T) 'T NIL NIL) 
  84. (DEFSYSFUN 'CDADAR "Lcdadar" '(T) 'T NIL NIL) 
  85. (DEFSYSFUN 'CDAADR "Lcdaadr" '(T) 'T NIL NIL) 
  86. (DEFSYSFUN 'CADDAR "Lcaddar" '(T) 'T NIL NIL) 
  87. (DEFSYSFUN 'CADADR "Lcadadr" '(T) 'T NIL NIL) 
  88. (DEFSYSFUN 'CAADDR "Lcaaddr" '(T) 'T NIL NIL) 
  89. (DEFSYSFUN 'SET-MACRO-CHARACTER "Lset_macro_character" '(T T *) 'T NIL
  90.     NIL) 
  91. (DEFSYSFUN 'FORCE-OUTPUT "Lforce_output" '(*) 'T NIL NIL) 
  92. (DEFSYSFUN 'NTHCDR "Lnthcdr" '(T T) 'T NIL NIL) 
  93. (DEFSYSFUN 'LOGIOR "Llogior" '(*) 'T NIL NIL) 
  94. (DEFSYSFUN 'CHAR-DOWNCASE "Lchar_downcase" '(T) 'CHARACTER NIL NIL) 
  95. (DEFSYSFUN 'STRING-CHAR-P "Lstring_char_p" '(T) 'T NIL T) 
  96. (DEFSYSFUN 'STREAM-ELEMENT-TYPE "Lstream_element_type" '(T) 'T NIL NIL) 
  97. (DEFSYSFUN 'PACKAGE-USED-BY-LIST "Lpackage_used_by_list" '(T) 'T NIL
  98.     NIL) 
  99. (DEFSYSFUN '/ "Ldivide" '(T *) 'T NIL NIL) 
  100. (DEFSYSFUN 'MAPHASH "Lmaphash" '(T T) 'T NIL NIL) 
  101. (DEFSYSFUN 'STRING= "Lstring_eq" '(T T *) 'T NIL T) 
  102. (DEFSYSFUN 'PAIRLIS "Lpairlis" '(T T *) 'T NIL NIL) 
  103. (DEFSYSFUN 'SYMBOLP "Lsymbolp" '(T) 'T NIL T) 
  104. (DEFSYSFUN 'CHAR-NOT-LESSP "Lchar_not_lessp" '(T *) 'T NIL T) 
  105. (DEFSYSFUN '1+ "Lone_plus" '(T) 'T NIL NIL) 
  106. (DEFSYSFUN 'BY "Lby" 'NIL 'T NIL NIL) 
  107. (DEFSYSFUN 'NSUBST-IF "Lnsubst_if" '(T T T *) 'T NIL NIL) 
  108. (DEFSYSFUN 'COPY-LIST "Lcopy_list" '(T) 'T NIL NIL) 
  109. (DEFSYSFUN 'TAN "Ltan" '(T) 'T NIL NIL) 
  110. (DEFSYSFUN 'SET "Lset" '(T T) 'T NIL NIL) 
  111. (DEFSYSFUN 'FUNCTIONP "Lfunctionp" '(T) 'T NIL T) 
  112. (DEFSYSFUN 'WRITE-BYTE "Lwrite_byte" '(T T) 'T NIL NIL) 
  113. (DEFSYSFUN 'LAST "Llast" '(T) 'T NIL NIL) 
  114. (DEFSYSFUN 'MAKE-STRING "Lmake_string" '(T *) 'STRING NIL NIL) 
  115. (DEFSYSFUN 'CAAAR "Lcaaar" '(T) 'T NIL NIL) 
  116. (DEFSYSFUN 'LIST-LENGTH "Llist_length" '(T) 'T NIL NIL) 
  117. (DEFSYSFUN 'CDDDR "Lcdddr" '(T) 'T NIL NIL) 
  118. (DEFSYSFUN 'PRIN1 "Lprin1" '(T *) 'T NIL NIL) 
  119. (DEFSYSFUN 'PRINC "Lprinc" '(T *) 'T NIL NIL) 
  120. (DEFSYSFUN 'LOWER-CASE-P "Llower_case_p" '(T) 'T NIL T) 
  121. (DEFSYSFUN 'CHAR<= "Lchar_le" '(T *) 'T NIL T) 
  122. (DEFSYSFUN 'STRING-EQUAL "Lstring_equal" '(T T *) 'T NIL T) 
  123. (DEFSYSFUN 'CLEAR-OUTPUT "Lclear_output" '(*) 'T NIL NIL) 
  124. #-clcs (DEFSYSFUN 'CERROR "Lcerror" '(T T *) 'T NIL NIL) 
  125. (DEFSYSFUN 'TERPRI "Lterpri" '(*) 'T NIL NIL) 
  126. (DEFSYSFUN 'NSUBST "Lnsubst" '(T T T *) 'T NIL NIL) 
  127. (DEFSYSFUN 'UNUSE-PACKAGE "Lunuse_package" '(T *) 'T NIL NIL) 
  128. (DEFSYSFUN 'STRING-NOT-GREATERP "Lstring_not_greaterp" '(T T *) 'T NIL
  129.     T) 
  130. (DEFSYSFUN 'STRING> "Lstring_g" '(T T *) 'T NIL T) 
  131. (DEFSYSFUN 'FINISH-OUTPUT "Lfinish_output" '(*) 'T NIL NIL) 
  132. (DEFSYSFUN 'SPECIAL-FORM-P "Lspecial_form_p" '(T) 'T NIL T) 
  133. (DEFSYSFUN 'STRINGP "Lstringp" '(T) 'T NIL T) 
  134. (DEFSYSFUN 'GET-INTERNAL-RUN-TIME "Lget_internal_run_time" 'NIL 'T NIL
  135.     NIL) 
  136. (DEFSYSFUN 'TRUNCATE "Ltruncate" '(T *) '(VALUES T T) NIL NIL) 
  137. (DEFSYSFUN 'CODE-CHAR "Lcode_char" '(T *) 'CHARACTER NIL NIL) 
  138. (DEFSYSFUN 'CHAR-CODE "Lchar_code" '(T) 'FIXNUM NIL NIL) 
  139. (DEFSYSFUN 'SIMPLE-STRING-P "Lsimple_string_p" '(T) 'T NIL T) 
  140. (DEFSYSFUN 'REVAPPEND "Lrevappend" '(T T) 'T NIL NIL) 
  141. (DEFSYSFUN 'HASH-TABLE-COUNT "Lhash_table_count" '(T) 'T NIL NIL) 
  142. (DEFSYSFUN 'PACKAGE-USE-LIST "Lpackage_use_list" '(T) 'T NIL NIL) 
  143. (DEFSYSFUN 'REM "Lrem" '(T T) 'T NIL NIL) 
  144. (DEFSYSFUN 'MIN "Lmin" '(T *) 'T NIL NIL) 
  145. (DEFSYSFUN 'APPLYHOOK "Lapplyhook" '(T T T T *) 'T NIL NIL) 
  146. (DEFSYSFUN 'EXP "Lexp" '(T) 'T NIL NIL) 
  147. (DEFSYSFUN 'CHAR-LESSP "Lchar_lessp" '(T *) 'T NIL T) 
  148. (DEFSYSFUN 'CDAR "Lcdar" '(T) 'T NIL NIL) 
  149. (DEFSYSFUN 'CADR "Lcadr" '(T) 'T NIL NIL) 
  150. (DEFSYSFUN 'LIST-ALL-PACKAGES "Llist_all_packages" 'NIL 'T NIL NIL) 
  151. (DEFSYSFUN 'REST "Lcdr" '(T) 'T NIL NIL) 
  152. (DEFSYSFUN 'COPY-SYMBOL "Lcopy_symbol" '(T *) 'T NIL NIL) 
  153. (DEFSYSFUN 'ACONS "Lacons" '(T T T) 'T NIL NIL) 
  154. (DEFSYSFUN 'ADJUSTABLE-ARRAY-P "Ladjustable_array_p" '(T) 'T NIL T) 
  155. (DEFSYSFUN 'SVREF "Lsvref" '(T T) 'T NIL NIL) 
  156. (DEFSYSFUN 'APPLY "Lapply" '(T T *) 'T NIL NIL) 
  157. (DEFSYSFUN 'DECODE-FLOAT "Ldecode_float" '(T) '(VALUES T T T) NIL NIL) 
  158. (DEFSYSFUN 'SUBST-IF-NOT "Lsubst_if_not" '(T T T *) 'T NIL NIL) 
  159. (DEFSYSFUN 'RPLACA "Lrplaca" '(T T) 'T NIL NIL) 
  160. (DEFSYSFUN 'SYMBOL-PLIST "Lsymbol_plist" '(T) 'T NIL NIL) 
  161. (DEFSYSFUN 'WRITE-STRING "Lwrite_string" '(T *) 'T NIL NIL) 
  162. (DEFSYSFUN 'LOGEQV "Llogeqv" '(*) 'T NIL NIL) 
  163. (DEFSYSFUN 'STRING "Lstring" '(T) 'STRING NIL NIL) 
  164. (DEFSYSFUN 'STRING-UPCASE "Lstring_upcase" '(T *) 'STRING NIL NIL) 
  165. (DEFSYSFUN 'CEILING "Lceiling" '(T *) '(VALUES T T) NIL NIL) 
  166. (DEFSYSFUN 'GETHASH "Lgethash" '(T T *) '(VALUES T T) NIL NIL) 
  167. (DEFSYSFUN 'TYPE-OF "Ltype_of" '(T) 'T NIL NIL) 
  168. (DEFSYSFUN 'BUTLAST "Lbutlast" '(T *) 'T NIL NIL) 
  169. (DEFSYSFUN '1- "Lone_minus" '(T) 'T NIL NIL) 
  170. (DEFSYSFUN 'MAKE-HASH-TABLE "Lmake_hash_table" '(*) 'T NIL NIL) 
  171. (DEFSYSFUN 'STRING/= "Lstring_neq" '(T T *) 'T NIL T) 
  172. (DEFSYSFUN '<= "Lmonotonically_nondecreasing" '(T *) 'T NIL T) 
  173. (DEFSYSFUN 'MAKE-BROADCAST-STREAM "Lmake_broadcast_stream" '(*) 'T NIL
  174.     NIL) 
  175. (DEFSYSFUN 'IMAGPART "Limagpart" '(T) 'T NIL NIL) 
  176. (DEFSYSFUN 'INTEGERP "Lintegerp" '(T) 'T NIL T) 
  177. (DEFSYSFUN 'READ-CHAR "Lread_char" '(*) 'T NIL NIL) 
  178. (DEFSYSFUN 'PEEK-CHAR "Lpeek_char" '(*) 'T NIL NIL) 
  179. (DEFSYSFUN 'CHAR-FONT "Lchar_font" '(T) 'FIXNUM NIL NIL) 
  180. (DEFSYSFUN 'STRING-GREATERP "Lstring_greaterp" '(T T *) 'T NIL T) 
  181. (DEFSYSFUN 'OUTPUT-STREAM-P "Loutput_stream_p" '(T) 'T NIL T) 
  182. (DEFSYSFUN 'ASH "Lash" '(T T) 'T NIL NIL) 
  183. (DEFSYSFUN 'LCM "Llcm" '(T *) 'T NIL NIL) 
  184. (DEFSYSFUN 'ELT "Lelt" '(T T) 'T NIL NIL) 
  185. (DEFSYSFUN 'COS "Lcos" '(T) 'T NIL NIL) 
  186. (DEFSYSFUN 'NSTRING-DOWNCASE "Lnstring_downcase" '(T *) 'STRING NIL
  187.     NIL) 
  188. (DEFSYSFUN 'COPY-ALIST "Lcopy_alist" '(T) 'T NIL NIL) 
  189. (DEFSYSFUN 'ATAN "Latan" '(T *) 'T NIL NIL) 
  190. (DEFSYSFUN 'DELETE-FILE "Ldelete_file" '(T) 'T NIL NIL) 
  191. (DEFSYSFUN 'FLOAT-RADIX "Lfloat_radix" '(T) 'FIXNUM NIL NIL) 
  192. (DEFSYSFUN 'SYMBOL-NAME "Lsymbol_name" '(T) 'STRING NIL NIL) 
  193. (DEFSYSFUN 'CLEAR-INPUT "Lclear_input" '(*) 'T NIL NIL) 
  194. (DEFSYSFUN 'FIND-SYMBOL "Lfind_symbol" '(T *) '(VALUES T T) NIL NIL) 
  195. (DEFSYSFUN 'CHAR< "Lchar_l" '(T *) 'T NIL T) 
  196. (DEFSYSFUN 'HASH-TABLE-P "Lhash_table_p" '(T) 'T NIL T) 
  197. (DEFSYSFUN 'EVENP "Levenp" '(T) 'T NIL T) 
  198. (DEFSYSFUN 'ZEROP "Lzerop" '(T) 'T NIL T) 
  199. (DEFSYSFUN 'CAAAAR "Lcaaaar" '(T) 'T NIL NIL) 
  200. (DEFSYSFUN 'CHAR>= "Lchar_ge" '(T *) 'T NIL T) 
  201. (DEFSYSFUN 'CDDDAR "Lcdddar" '(T) 'T NIL NIL) 
  202. (DEFSYSFUN 'CDDADR "Lcddadr" '(T) 'T NIL NIL) 
  203. (DEFSYSFUN 'CDADDR "Lcdaddr" '(T) 'T NIL NIL) 
  204. (DEFSYSFUN 'CADDDR "Lcadddr" '(T) 'T NIL NIL) 
  205. (DEFSYSFUN 'FILL-POINTER "Lfill_pointer" '(T) 'FIXNUM NIL NIL) 
  206. (DEFSYSFUN 'MAPCAR "Lmapcar" '(T T *) 'T NIL NIL) 
  207. (DEFSYSFUN 'FLOATP "Lfloatp" '(T) 'T NIL T) 
  208. (DEFSYSFUN 'SHADOW "Lshadow" '(T *) 'T NIL NIL) 
  209. (DEFSYSFUN 'MACROEXPAND-1 "Lmacroexpand_1" '(T *) '(VALUES T T) NIL
  210.     NIL) 
  211. (DEFSYSFUN 'SXHASH "Lsxhash" '(T) 'FIXNUM NIL NIL) 
  212. (DEFSYSFUN 'LISTEN "Llisten" '(*) 'T NIL NIL) 
  213. (DEFSYSFUN 'ARRAYP "Larrayp" '(T) 'T NIL T) 
  214. (DEFSYSFUN 'MAKE-PATHNAME "Lmake_pathname" '(*) 'T NIL NIL) 
  215. (DEFSYSFUN 'PATHNAME-TYPE "Lpathname_type" '(T) 'T NIL NIL) 
  216. (DEFSYSFUN 'FUNCALL "Lfuncall" '(T *) 'T NIL NIL) 
  217. (DEFSYSFUN 'CLRHASH "Lclrhash" '(T) 'T NIL NIL) 
  218. (DEFSYSFUN 'GRAPHIC-CHAR-P "Lgraphic_char_p" '(T) 'T NIL T) 
  219. (DEFSYSFUN 'FBOUNDP "Lfboundp" '(T) 'T NIL T) 
  220. (DEFSYSFUN 'NSUBLIS "Lnsublis" '(T T *) 'T NIL NIL) 
  221. (DEFSYSFUN 'CHAR-NOT-EQUAL "Lchar_not_equal" '(T *) 'T NIL T) 
  222. (DEFSYSFUN 'MACRO-FUNCTION "Lmacro_function" '(T) 'T NIL NIL) 
  223. (DEFSYSFUN 'SUBST-IF "Lsubst_if" '(T T T *) 'T NIL NIL) 
  224. (DEFSYSFUN 'COMPLEXP "Lcomplexp" '(T) 'T NIL T) 
  225. (DEFSYSFUN 'READ-LINE "Lread_line" '(*) '(VALUES T T) NIL NIL) 
  226. (DEFSYSFUN 'GET-INTERNAL-REAL-TIME "Lget_internal_real_time" 'NIL 'T
  227.     NIL NIL) 
  228. (DEFSYSFUN 'PATHNAMEP "Lpathnamep" '(T) 'T NIL T) 
  229. (DEFSYSFUN 'MAX "Lmax" '(T *) 'T NIL NIL) 
  230. (DEFSYSFUN 'IN-PACKAGE "Lin_package" '(T *) 'T NIL NIL) 
  231. (DEFSYSFUN 'READTABLEP "Lreadtablep" '(T) 'T NIL T) 
  232. (DEFSYSFUN 'FLOAT-SIGN "Lfloat_sign" '(T *) 'T NIL NIL) 
  233. (DEFSYSFUN 'CHARACTERP "Lcharacterp" '(T) 'T NIL T) 
  234. (DEFSYSFUN 'READ "Lread" '(*) 'T NIL NIL) 
  235. (DEFSYSFUN 'NAMESTRING "Lnamestring" '(T) 'T NIL NIL) 
  236. (DEFSYSFUN 'UNREAD-CHAR "Lunread_char" '(T *) 'T NIL NIL) 
  237. (DEFSYSFUN 'CDAAR "Lcdaar" '(T) 'T NIL NIL) 
  238. (DEFSYSFUN 'CADAR "Lcadar" '(T) 'T NIL NIL) 
  239. (DEFSYSFUN 'CAADR "Lcaadr" '(T) 'T NIL NIL) 
  240. (DEFSYSFUN 'CHAR= "Lchar_eq" '(T *) 'T NIL T) 
  241. (DEFSYSFUN 'ALPHA-CHAR-P "Lalpha_char_p" '(T) 'T NIL T) 
  242. (DEFSYSFUN 'STRING-TRIM "Lstring_trim" '(T T) 'STRING NIL NIL) 
  243. (DEFSYSFUN 'MAKE-PACKAGE "Lmake_package" '(T *) 'T NIL NIL) 
  244. (DEFSYSFUN 'CLOSE "Lclose" '(T *) 'T NIL NIL) 
  245. (DEFSYSFUN 'DENOMINATOR "Ldenominator" '(T) 'T NIL NIL) 
  246. (DEFSYSFUN 'FLOAT "Lfloat" '(T *) 'T NIL NIL) 
  247. (DEFSYSFUN 'FIRST "Lcar" '(T) 'T NIL NIL) 
  248. (DEFSYSFUN 'ROUND "Lround" '(T *) '(VALUES T T) NIL NIL) 
  249. (DEFSYSFUN 'SUBST "Lsubst" '(T T T *) 'T NIL NIL) 
  250. (DEFSYSFUN 'UPPER-CASE-P "Lupper_case_p" '(T) 'T NIL T) 
  251. (DEFSYSFUN 'ARRAY-ELEMENT-TYPE "Larray_element_type" '(T) 'T NIL NIL) 
  252. (DEFSYSFUN 'ADJOIN "Ladjoin" '(T T *) 'T NIL NIL) 
  253. (DEFSYSFUN 'LOGAND "Llogand" '(*) 'T NIL NIL) 
  254. (DEFSYSFUN 'MAPCON "Lmapcon" '(T T *) 'T NIL NIL) 
  255. (DEFSYSFUN 'INTERN "Lintern" '(T *) '(VALUES T T) NIL NIL) 
  256. (DEFSYSFUN 'VALUES "Lvalues" '(*) '* NIL NIL) 
  257. (DEFSYSFUN 'EXPORT "Lexport" '(T *) 'T NIL NIL) 
  258. (DEFSYSFUN '* "Ltimes" '(*) 'T NIL NIL) 
  259. (DEFSYSFUN '< "Lmonotonically_increasing" '(T *) 'T NIL T) 
  260. (DEFSYSFUN 'COMPLEX "Lcomplex" '(T *) 'T NIL NIL) 
  261. (DEFSYSFUN 'SET-SYNTAX-FROM-CHAR "Lset_syntax_from_char" '(T T *) 'T
  262.     NIL NIL) 
  263. (DEFSYSFUN 'CHAR-BIT "Lchar_bit" '(T T) 'FIXNUM NIL NIL) 
  264. (DEFSYSFUN 'INTEGER-LENGTH "Linteger_length" '(T) 'FIXNUM NIL NIL) 
  265. (DEFSYSFUN 'PACKAGEP "Lpackagep" '(T) 'T NIL T) 
  266. (DEFSYSFUN 'INPUT-STREAM-P "Linput_stream_p" '(T) 'T NIL T) 
  267. (DEFSYSFUN '>= "Lmonotonically_nonincreasing" '(T *) 'T NIL T) 
  268. (DEFSYSFUN 'PATHNAME "Lpathname" '(T) 'T NIL NIL) 
  269. (DEFSYSFUN 'EQ "Leq" '(T T) 'T NIL T) 
  270. (DEFSYSFUN 'MAKE-CHAR "Lmake_char" '(T *) 'CHARACTER NIL NIL) 
  271. (DEFSYSFUN 'FILE-NAMESTRING "Lfile_namestring" '(T) 'STRING NIL NIL) 
  272. (DEFSYSFUN 'CHARACTER "Lcharacter" '(T) 'CHARACTER NIL NIL) 
  273. (DEFSYSFUN 'SYMBOL-FUNCTION "Lsymbol_function" '(T) 'T NIL NIL) 
  274. (DEFSYSFUN 'CONSTANTP "Lconstantp" '(T) 'T NIL T) 
  275. (DEFSYSFUN 'CHAR-EQUAL "Lchar_equal" '(T *) 'T NIL T) 
  276. (DEFSYSFUN 'TREE-EQUAL "Ltree_equal" '(T T *) 'T NIL T) 
  277. (DEFSYSFUN 'CDDR "Lcddr" '(T) 'T NIL NIL) 
  278. (DEFSYSFUN 'GETF "Lgetf" '(T T *) 'T NIL NIL) 
  279. (DEFSYSFUN 'SAVE "Lsave" '(T) 'T NIL NIL) 
  280. (DEFSYSFUN 'MAKE-RANDOM-STATE "Lmake_random_state" '(*) 'T NIL NIL) 
  281. (DEFSYSFUN 'CHAR-NOT-GREATERP "Lchar_not_greaterp" '(T *) 'T NIL T) 
  282. (DEFSYSFUN 'EXPT "Lexpt" '(T T) 'T NIL NIL) 
  283. (DEFSYSFUN 'SQRT "Lsqrt" '(T) 'T NIL NIL) 
  284. (DEFSYSFUN 'SCALE-FLOAT "Lscale_float" '(T T) 'T NIL NIL) 
  285. (DEFSYSFUN 'CHAR> "Lchar_g" '(T *) 'T NIL T) 
  286. (DEFSYSFUN 'LDIFF "Lldiff" '(T T) 'T NIL NIL) 
  287. (DEFSYSFUN 'ASSOC-IF-NOT "Lassoc_if_not" '(T T) 'T NIL NIL) 
  288. (DEFSYSFUN 'BIT-VECTOR-P "Lbit_vector_p" '(T) 'T NIL T) 
  289. (DEFSYSFUN 'NSTRING-CAPITALIZE "Lnstring_capitalize" '(T *) 'STRING NIL
  290.     NIL) 
  291. (DEFSYSFUN 'SYMBOL-VALUE "Lsymbol_value" '(T) 'T NIL NIL) 
  292. (DEFSYSFUN 'RPLACD "Lrplacd" '(T T) 'T NIL NIL) 
  293. (DEFSYSFUN 'BOUNDP "Lboundp" '(T) 'T NIL T) 
  294. (DEFSYSFUN 'EQUALP "Lequalp" '(T T) 'T NIL T) 
  295. (DEFSYSFUN 'SIMPLE-BIT-VECTOR-P "Lsimple_bit_vector_p" '(T) 'T NIL T) 
  296. (DEFSYSFUN 'MEMBER-IF-NOT "Lmember_if_not" '(T T *) 'T NIL NIL) 
  297. (DEFSYSFUN 'MAKE-TWO-WAY-STREAM "Lmake_two_way_stream" '(T T) 'T NIL
  298.     NIL) 
  299. (DEFSYSFUN 'PARSE-INTEGER "Lparse_integer" '(T *) 'T NIL NIL) 
  300. (DEFSYSFUN '+ "Lplus" '(*) 'T NIL NIL) 
  301. (DEFSYSFUN '= "Lall_the_same" '(T *) 'T NIL T) 
  302. (DEFSYSFUN 'GENTEMP "Lgentemp" '(*) 'T NIL NIL) 
  303. (DEFSYSFUN 'RENAME-PACKAGE "Lrename_package" '(T T *) 'T NIL NIL) 
  304. (DEFSYSFUN 'COMMONP "Lcommonp" '(T) 'T NIL T) 
  305. (DEFSYSFUN 'NUMBERP "Lnumberp" '(T) 'T NIL T) 
  306. (DEFSYSFUN 'COPY-READTABLE "Lcopy_readtable" '(*) 'T NIL NIL) 
  307. (DEFSYSFUN 'RANDOM-STATE-P "Lrandom_state_p" '(T) 'T NIL T) 
  308. (DEFSYSFUN 'DIRECTORY-NAMESTRING "Ldirectory_namestring" '(T) 'STRING
  309.     NIL NIL) 
  310. (DEFSYSFUN 'STANDARD-CHAR-P "Lstandard_char_p" '(T) 'T NIL T) 
  311. (DEFSYSFUN 'TRUENAME "Ltruename" '(T) 'T NIL NIL) 
  312. (DEFSYSFUN 'IDENTITY "Lidentity" '(T) 'T NIL NIL) 
  313. (DEFSYSFUN 'NREVERSE "Lnreverse" '(T) 'T NIL NIL) 
  314. (DEFSYSFUN 'PATHNAME-DEVICE "Lpathname_device" '(T) 'T NIL NIL) 
  315. (DEFSYSFUN 'UNINTERN "Lunintern" '(T *) 'T NIL NIL) 
  316. (DEFSYSFUN 'UNEXPORT "Lunexport" '(T *) 'T NIL NIL) 
  317. (DEFSYSFUN 'FLOAT-PRECISION "Lfloat_precision" '(T) 'FIXNUM NIL NIL) 
  318. (DEFSYSFUN 'STRING-DOWNCASE "Lstring_downcase" '(T *) 'STRING NIL NIL) 
  319. (DEFSYSFUN 'CAR "Lcar" '(T) 'T NIL NIL) 
  320. (DEFSYSFUN 'CONJUGATE "Lconjugate" '(T) 'T NIL NIL) 
  321. (DEFSYSFUN 'NOT "Lnull" '(T) 'T NIL T) 
  322. (DEFSYSFUN 'READ-CHAR-NO-HANG "Lread_char_no_hang" '(*) 'T NIL NIL) 
  323. (DEFSYSFUN 'FRESH-LINE "Lfresh_line" '(*) 'T NIL NIL) 
  324. (DEFSYSFUN 'WRITE-CHAR "Lwrite_char" '(T *) 'T NIL NIL) 
  325. (DEFSYSFUN 'PARSE-NAMESTRING "Lparse_namestring" '(T *) 'T NIL NIL) 
  326. (DEFSYSFUN 'STRING-NOT-LESSP "Lstring_not_lessp" '(T T *) 'T NIL T) 
  327. (DEFSYSFUN 'CHAR "Lchar" '(T T) 'CHARACTER NIL NIL) 
  328. (DEFSYSFUN 'AREF "Laref" '(T *) 'T NIL NIL) 
  329. (DEFSYSFUN 'PACKAGE-NICKNAMES "Lpackage_nicknames" '(T) 'T NIL NIL) 
  330. (DEFSYSFUN 'ENDP "Lendp" '(T) 'T NIL T) 
  331. (DEFSYSFUN 'ODDP "Loddp" '(T) 'T NIL T) 
  332. (DEFSYSFUN 'CHAR-UPCASE "Lchar_upcase" '(T) 'CHARACTER NIL NIL) 
  333. (DEFSYSFUN 'LIST* "LlistA" '(T *) 'T NIL NIL) 
  334. (DEFSYSFUN 'VALUES-LIST "Lvalues_list" '(T) '* NIL NIL) 
  335. (DEFSYSFUN 'EQUAL "Lequal" '(T T) 'T NIL T) 
  336. (DEFSYSFUN 'DIGIT-CHAR-P "Ldigit_char_p" '(T *) 'T NIL NIL) 
  337. #-clcs (DEFSYSFUN 'ERROR "Lerror" '(T *) 'T NIL NIL) 
  338. (DEFSYSFUN 'CHAR/= "Lchar_neq" '(T *) 'T NIL T) 
  339. (DEFSYSFUN 'PATHNAME-DIRECTORY "Lpathname_directory" '(T) 'T NIL NIL) 
  340. (DEFSYSFUN 'CDAAAR "Lcdaaar" '(T) 'T NIL NIL) 
  341. (DEFSYSFUN 'CADAAR "Lcadaar" '(T) 'T NIL NIL) 
  342. (DEFSYSFUN 'CAADAR "Lcaadar" '(T) 'T NIL NIL) 
  343. (DEFSYSFUN 'CAAADR "Lcaaadr" '(T) 'T NIL NIL) 
  344. (DEFSYSFUN 'CDDDDR "Lcddddr" '(T) 'T NIL NIL) 
  345. (DEFSYSFUN 'GET-MACRO-CHARACTER "Lget_macro_character" '(T *) 'T NIL
  346.     NIL) 
  347. (DEFSYSFUN 'FORMAT "Lformat" '(T T *) 'T NIL NIL) 
  348. (DEFSYSFUN 'COMPILED-FUNCTION-P "Lcompiled_function_p" '(T) 'T NIL T) 
  349. (DEFSYSFUN 'SUBLIS "Lsublis" '(T T *) 'T NIL NIL) 
  350. (DEFSYSFUN 'PATHNAME-NAME "Lpathname_name" '(T) 'T NIL NIL) 
  351. (DEFSYSFUN 'IMPORT "Limport" '(T *) 'T NIL NIL) 
  352. (DEFSYSFUN 'LOGXOR "Llogxor" '(*) 'T NIL NIL) 
  353. (DEFSYSFUN 'RASSOC-IF-NOT "Lrassoc_if_not" '(T T) 'T NIL NIL) 
  354. (DEFSYSFUN 'CHAR-GREATERP "Lchar_greaterp" '(T *) 'T NIL T) 
  355. (DEFSYSFUN 'MAKE-SYNONYM-STREAM "Lmake_synonym_stream" '(T) 'T NIL NIL) 
  356. (DEFSYSFUN 'ALPHANUMERICP "Lalphanumericp" '(T) 'T NIL T) 
  357. (DEFSYSFUN 'REMHASH "Lremhash" '(T T) 'T NIL NIL) 
  358. (DEFSYSFUN 'NRECONC "Lreconc" '(T T) 'T NIL NIL) 
  359. (DEFSYSFUN '> "Lmonotonically_decreasing" '(T *) 'T NIL T) 
  360. (DEFSYSFUN 'LOGBITP "Llogbitp" '(T T) 'T NIL T) 
  361. (DEFSYSFUN 'MAPLIST "Lmaplist" '(T T *) 'T NIL NIL) 
  362. (DEFSYSFUN 'VECTORP "Lvectorp" '(T) 'T NIL T) 
  363. (DEFSYSFUN 'ASSOC-IF "Lassoc_if" '(T T) 'T NIL NIL) 
  364. (DEFSYSFUN 'GET-PROPERTIES "Lget_properties" '(T T) '* NIL NIL) 
  365. (DEFSYSFUN 'STRING<= "Lstring_le" '(T T *) 'T NIL T) 
  366. (DEFSYSFUN 'EVALHOOK "Levalhook" '(T T T *) 'T NIL NIL) 
  367. (DEFSYSFUN 'FILE-WRITE-DATE "Lfile_write_date" '(T) 'T NIL NIL) 
  368. (DEFSYSFUN 'LOGCOUNT "Llogcount" '(T) 'T NIL NIL) 
  369. (DEFSYSFUN 'MERGE-PATHNAMES "Lmerge_pathnames" '(T *) 'T NIL NIL) 
  370. (DEFSYSFUN 'MEMBER-IF "Lmember_if" '(T T *) 'T NIL NIL) 
  371. (DEFSYSFUN 'READ-BYTE "Lread_byte" '(T *) 'T NIL NIL) 
  372. (DEFSYSFUN 'SIMPLE-VECTOR-P "Lsimple_vector_p" '(T) 'T NIL T) 
  373. (DEFSYSFUN 'CHAR-BITS "Lchar_bits" '(T) 'FIXNUM NIL NIL) 
  374. (DEFSYSFUN 'COPY-TREE "Lcopy_tree" '(T) 'T NIL NIL) 
  375. (DEFSYSFUN 'GCD "Lgcd" '(*) 'T NIL NIL) 
  376. (DEFSYSFUN 'BYE "Lby" 'NIL 'T NIL NIL) 
  377. (DEFSYSFUN 'GET "Lget" '(T T *) 'T NIL NIL) 
  378. (DEFSYSFUN 'MOD "Lmod" '(T T) 'T NIL NIL) 
  379. (DEFSYSFUN 'DIGIT-CHAR "Ldigit_char" '(T *) 'CHARACTER NIL NIL) 
  380. (DEFSYSFUN 'PROBE-FILE "Lprobe_file" '(T) 'T NIL NIL) 
  381. (DEFSYSFUN 'STRING-LEFT-TRIM "Lstring_left_trim" '(T T) 'STRING NIL
  382.     NIL) 
  383. (DEFSYSFUN 'PATHNAME-VERSION "Lpathname_version" '(T) 'T NIL NIL) 
  384. (DEFSYSFUN 'WRITE-LINE "Lwrite_line" '(T *) 'T NIL NIL) 
  385. (DEFSYSFUN 'EVAL "Leval" '(T) 'T NIL NIL) 
  386. (DEFSYSFUN 'ATOM "Latom" '(T) 'T NIL T) 
  387. (DEFSYSFUN 'CDDAR "Lcddar" '(T) 'T NIL NIL) 
  388. (DEFSYSFUN 'CDADR "Lcdadr" '(T) 'T NIL NIL) 
  389. (DEFSYSFUN 'CADDR "Lcaddr" '(T) 'T NIL NIL) 
  390. (DEFSYSFUN 'FMAKUNBOUND "Lfmakunbound" '(T) 'T NIL NIL) 
  391. (DEFSYSFUN 'SLEEP "Lsleep" '(T) 'T NIL NIL) 
  392. (DEFSYSFUN 'PACKAGE-NAME "Lpackage_name" '(T) 'T NIL NIL) 
  393. (DEFSYSFUN 'FIND-PACKAGE "Lfind_package" '(T) 'T NIL NIL) 
  394. (DEFSYSFUN 'ASSOC "Lassoc" '(T T *) 'T NIL NIL) 
  395. (DEFSYSFUN 'SET-CHAR-BIT "Lset_char_bit" '(T T T) 'CHARACTER NIL NIL) 
  396. (DEFSYSFUN 'FLOOR "Lfloor" '(T *) '(VALUES T T) NIL NIL) 
  397. (DEFSYSFUN 'WRITE "Lwrite" '(T *) 'T NIL NIL) 
  398. (DEFSYSFUN 'PLUSP "Lplusp" '(T) 'T NIL T) 
  399. (DEFSYSFUN 'FLOAT-DIGITS "Lfloat_digits" '(T) 'FIXNUM NIL NIL) 
  400. (DEFSYSFUN 'READ-DELIMITED-LIST "Lread_delimited_list" '(T *) 'T NIL
  401.     NIL) 
  402. (DEFSYSFUN 'APPEND "Lappend" '(*) 'T NIL NIL) 
  403. (DEFSYSFUN 'MEMBER "Lmember" '(T T *) 'T NIL NIL) 
  404. (DEFSYSFUN 'STRING-LESSP "Lstring_lessp" '(T T *) 'T NIL T) 
  405. (DEFSYSFUN 'RANDOM "Lrandom" '(T *) 'T NIL NIL) 
  406. (DEFSYSFUN 'SYSTEM:SPECIALP "siLspecialp" '(T) 'T NIL T) 
  407. (DEFSYSFUN 'SYSTEM:OUTPUT-STREAM-STRING "siLoutput_stream_string" '(T)
  408.     'T NIL NIL) 
  409. ;#-clcs (DEFSYSFUN 'SYSTEM:ERROR-SET "siLerror_set" '(T) '* NIL NIL) 
  410. (DEFSYSFUN 'SYSTEM:STRUCTUREP "siLstructurep" '(T) 'T NIL T) 
  411. (DEFSYSFUN 'SYSTEM:COPY-STREAM "siLcopy_stream" '(T T) 'T NIL NIL) 
  412. (DEFSYSFUN 'SYSTEM:INIT-SYSTEM "siLinit_system" 'NIL 'T NIL NIL) 
  413. (DEFSYSFUN 'SYSTEM:STRING-TO-OBJECT "siLstring_to_object" '(T) 'T NIL
  414.     NIL) 
  415. (DEFSYSFUN 'SYSTEM:RESET-STACK-LIMITS "siLreset_stack_limits" 'NIL 'T
  416.     NIL NIL) 
  417. (DEFSYSFUN 'SYSTEM:DISPLACED-ARRAY-P "siLdisplaced_array_p" '(T) 'T NIL
  418.     T) 
  419. (DEFSYSFUN 'SYSTEM:RPLACA-NTHCDR "siLrplaca_nthcdr" NIL T NIL NIL) 
  420. (DEFSYSFUN 'SYSTEM:LIST-NTH "siLlist_nth" NIL T NIL NIL) 
  421. (DEFSYSFUN 'SYSTEM:MAKE-PURE-ARRAY "siLmake_pure_array" NIL T NIL NIL) 
  422. (DEFSYSFUN 'SYSTEM:MAKE-VECTOR "siLmake_vector" NIL 'VECTOR NIL NIL) 
  423. (DEFSYSFUN 'SYSTEM:ASET "siLaset" '(ARRAY *) NIL NIL NIL) 
  424. (DEFSYSFUN 'SYSTEM:SVSET "siLsvset" '(SIMPLE-VECTOR FIXNUM T) T NIL
  425.     NIL) 
  426. (DEFSYSFUN 'SYSTEM:FILL-POINTER-SET "siLfill_pointer_set"
  427.     '(VECTOR FIXNUM) 'FIXNUM NIL NIL) 
  428. (DEFSYSFUN 'SYSTEM:REPLACE-ARRAY "siLreplace_array" NIL T NIL NIL) 
  429. (DEFSYSFUN 'SYSTEM:FSET "siLfset" '(SYMBOL T) NIL NIL NIL) 
  430. (DEFSYSFUN 'SYSTEM:HASH-SET "siLhash_set" NIL T NIL NIL) 
  431. (DEFSYSFUN 'BOOLE3 "Lboole" NIL T NIL NIL) 
  432. (DEFSYSFUN 'SYSTEM:PACKAGE-INTERNAL "siLpackage_internal" NIL T NIL
  433.     NIL) 
  434. (DEFSYSFUN 'SYSTEM:PACKAGE-EXTERNAL "siLpackage_external" NIL T NIL
  435.     NIL) 
  436. (DEFSYSFUN 'SYSTEM:ELT-SET "siLelt_set" '(SEQUENCE FIXNUM T) T NIL NIL) 
  437. (DEFSYSFUN 'SYSTEM:CHAR-SET "siLchar_set" '(STRING FIXNUM CHARACTER)
  438.     'CHARACTER NIL NIL) 
  439. (DEFSYSFUN 'SYSTEM:MAKE-STRUCTURE "siLmake_structure" NIL T NIL NIL) 
  440. (DEFSYSFUN 'SYSTEM:STRUCTURE-NAME "siLstructure_name" '(T) 'SYMBOL NIL
  441.     NIL) 
  442. (DEFSYSFUN 'SYSTEM:STRUCTURE-REF "siLstructure_ref" '(T T FIXNUM) T NIL
  443.     NIL) 
  444. (DEFSYSFUN 'SYSTEM:STRUCTURE-SET "siLstructure_set" '(T T FIXNUM T) T
  445.     NIL NIL) 
  446. (DEFSYSFUN 'SYSTEM:PUT-F "siLput_f" NIL '(T T) NIL NIL) 
  447. (DEFSYSFUN 'SYSTEM:REM-F "siLrem_f" NIL '(T T) NIL NIL) 
  448. (DEFSYSFUN 'SYSTEM:SET-SYMBOL-PLIST "siLset_symbol_plist" '(SYMBOL T) T
  449.     NIL NIL) 
  450. (DEFSYSFUN 'SI::BIT-ARRAY-OP "siLbit_array_op" NIL T NIL NIL)
  451.  
  452.  
  453.  
  454.  
  455.  
  456.